define nested
proc(c, d, e)

	define plus
	proc(i, j)
		return := i + j
	end;

	define mult
	proc(k, l)
		return := k * l
	end;

	return := plus( mult ( c, d ) , e )

end;

u := 4;
v := 5;
w := 7;
x := nested(u, v, w)
